home *** CD-ROM | disk | FTP | other *** search
/ Building Homes of Our Own / Building Homes of our Own.iso / setup / data1.cab / Everything / working / siteSel.dxr / interface_333_CompleteButton behave (grading&CleanUp).ls < prev    next >
Encoding:
Text File  |  2002-09-25  |  1.1 KB  |  39 lines
  1. property mySprite, myType, myName, myNameDown, myNameOver, myNameInactive, Active, ancestor
  2.  
  3. on beginSprite me
  4.   global gActorListMan
  5.   mySprite = me.spriteNum
  6.   myName = (the member of sprite mySprite).name
  7.   myNameDown = word 1 of myName && "down"
  8.   myNameOver = word 1 of myName && "over"
  9.   myNameInactive = word 1 of myName && "Inactive"
  10.   Active = 1
  11.   lookForToolTip = 1
  12.   ancestor = new(script("FourStatebuttonActions"), lookForToolTip)
  13.   myType = #completeButton
  14.   registerSprite(gActorListMan, mySprite)
  15. end
  16.  
  17. on mouseUp me
  18.   global gClickSprite, gUserDataMan, gFrameToGoTo, gIsoEngineTracker, gActorListMan
  19.   if not Active then
  20.     exit
  21.   end if
  22.   if gClickSprite = mySprite then
  23.     doButtonUpClick(myType, 1)
  24.     if sitePrepComplete() then
  25.       outPut("completeButton Clicked")
  26.       gFrameToGoTo = "floorPlan_init"
  27.       clearActorList(gActorListMan)
  28.       stopTracking(gIsoEngineTracker)
  29.       gIsoEngineTracker = VOID
  30.       go("transition", "houCons")
  31.     end if
  32.   end if
  33. end
  34.  
  35. on endSprite me
  36.   global gActorListMan
  37.   unRegisterSprite(gActorListMan, mySprite)
  38. end
  39.